home *** CD-ROM | disk | FTP | other *** search
/ OneVision 3.03 / OneVision3.03.iso / Apps / Convert PICT.app / CommentedPSCode / Miscellaneous < prev    next >
Encoding:
Text File  |  1993-11-08  |  1.4 KB  |  65 lines
  1. %BEGIN Miscellaneous
  2.  
  3. % Copyright (C) 1993 David John Burrowes
  4. % Distributed under terms of GNU General Public License.
  5. % See COPYING.text in Convert PICT's CommentedPSCode for a copy
  6.  
  7. %%%%%%%%%%%%%
  8. %    Note:
  9. %        penWidth and penHeight 'defined' in Common code.
  10. %%%%%%%%%%%%%
  11.  
  12. %%%%%%%%%%%%%
  13. %    Name:    pnSize        [0007]
  14. %    Syntax:    x y pnSize -
  15. %    About:    Set the width and height of the pen, given parameters
  16. %%%%%%%%%%%%%
  17. /pnSize
  18. {
  19.     /penHeight exch def
  20.     /penWidth exch def
  21. }
  22. def
  23.  
  24. %%%%%%%%%%%%%
  25. %    Name:    pnMode        [0008]
  26. %    Syntax:    mode-name pnMode -
  27. %    About:    Given the name of a drawing mode, store it in a 'global', (it
  28. %            should be a pat* or notpat* mode). We don't check it, though.
  29. %%%%%%%%%%%%%
  30. /pnMode
  31.     { /patternMode exch def }
  32. def
  33.  
  34. %%%%%%%%%%%%%
  35. %    Name:    origin        [000C]
  36. %    Syntax:    num num origin -
  37. %    About:    Shift the origin of the coordinate system, given an x & y delta
  38. %%%%%%%%%%%%%
  39. /origin
  40.     { translate }
  41. def
  42.  
  43. %%%%%%%%%%%%%
  44. %    Name:    pnLocHFrac        [0015]
  45. %    Syntax:    num pnLocHFrac -
  46. %    About:    This corresponds to the 0015 opcode that allows finer placement
  47. %            of the pen on the mac.  I couldn't determine what it did
  48. %            precisely. So, I ignore it.
  49. %%%%%%%%%%%%%
  50. /pnLocHFrac
  51.     {pop}
  52. def
  53.  
  54. %%%%%%%%%%%%%
  55. %    Name:    hiliteMode        [001C]
  56. %    Syntax:    - hiliteMode -
  57. %    About:    'this opcode is sent before a drawing operation that uses the hilite mode.'
  58. %            (according to Inside Mac V p. 103).  I just ignore it.
  59. %%%%%%%%%%%%%
  60. /hiliteMode
  61.     {}
  62. def
  63.  
  64. %END Miscellaneous
  65.